program ls_server;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  CServerMain in 'classes\CServerMain.pas',
  USerjUtils in '..\..\allsrc\USerjUtils.pas',
  CConst in 'CConst.pas',
  CLogger in 'classes\CLogger.pas',
  UExceptions in 'UExceptions.pas',
  ULocal in 'ULocal.pas';

var
  var1: string;

begin
  try
    Writeln('Application started...');

    repeat
      write('Enter command: ');
      readln(var1);

      writeln( IsIPAdress(var1));

    until var1 = 'exit';


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Write('Terminated...');
  Sleep(1000);
end.
